Top 10k strings from Wordsearch, The (1985)(16-48 Tape Magazine).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   8 (n,m)=w$(g)
   3 "WORDSEARCH"
   2 ;"WORDSEARCH"
   2 ...<< Is a program to find words<within a grid of letters.<You input the letters to the<grid and I will find them for<you.(the space key will delete)<  THE WORDSEARCH is ideal for<CHEATING at competions and it<might even make you some cash!<<<HAPPY SEARCHING
   2 *GRAPHICS*
   1 height=a-1
   1 ZBDDB@BDBB
   1 STOP THE TAPE
   1 RUN THE TAPE
   1 Q=Quit    
   1 BBBD@@BBBB
   1 BBBB<|BB@~
   1 B<|x<~<|<B
   1 ;"WORDSEARCH":
   1 ;"WORD TO";
   1 ;"THE GRID":
   1 ;"THAT WORD";
   1 ;"S=Search. ";
   1 ;"P=Printer "
   1 ;"N=New grid";
   1 ;"LOAD GRID IN NOW?  (Y/N)"'''"(Press N if you have not already saved a grid to tape.)"
   1 ;"LETTERS"
   1 ;"L=Loadgrid";
   1 ;"IS NOT IN ";
   1 ;"G=Savegrid";
   1 ;"C=Clear   ";
   1 ;" SEARCHING"
   1 ;" CLEARING ":
   1 ;"  grid.   ";
   1 ++WRITTEN BY ANDREW BATESON++
   1 *TO SHOW WORD IN GRID*
   1 *TO SET UP SCREEN*
   1 *TO SCOLL SCREEN UP*
   1 *TO FOUND 1st LETTER IN WORD*
   1 *TO FIND REST OF THE WORD IN THE GRID*
   1 *SHOW WORD ON RIGHT*
   1 *SHOW WORD ON LEFT*
   1 *SHOW WORD IF UP*
   1 *SHOW WORD IF RIGHT UP*
   1 *SHOW WORD IF RIGHT DOWN*
   1 *SHOW WORD IF LEFT UP*
   1 *SHOW WORD IF LEFT DOWN*
   1 *SHOW WORD IF DOWN*
   1 *SEARCH UP FROM 1st LETTER*
   1 *SEARCH RIGHT UP FROM 1st LETTER*
   1 *SEARCH RIGHT FROM 1st LETTER*
   1 *SEARCH RIGHT DOWN FROM 1st LETTER*
   1 *SEARCH LEFT UP FROM 1st LETTER*
   1 *SEARCH LEFT FROM 1st LETTER*
   1 *SEARCH LEFT DOWN FROM 1st LETTER*
   1 *SEARCH DOWN FROM 1st LETTER*
   1 *PRINT LETTERS INTO GRID**
   1 *PREPARE SCREEN
   1 *INSTUCTIONS*
   1 *INPUT WORD TO BE FOUND*
   1 *DRAW BORDER ROUND GRID*
   1 *CLEAR SCREEN FROM INSTRUCTIONS*
   1 *CLEAR MESSAGES*
   1 *CHECK HEIGHT AND WIDTH OF GRID WHEN LOADED*
   1 (y,x)=w$(1
   1 $<Bx<~BB<B
   1 "u","24","8","8","8","220","40","41","222"
   1 "t","0","0","0","99","148","230","137","119"
   1 "s","0","204","132","132","252","132","132","204"
   1 "r","0","0","0","49","207","69","73","49"
   1 "p","0","120","132","132","128","132","132","120"
   1 "o","24","36","68","136","136","136","73","54"
   1 "l","0","124","132","132","180","132","132","204"
   1 "k","0","248","132","128","124","4","132","120"
   1 "j","0","240","136","132","132","132","136","240"
   1 "i","96","144","136","136","144","137","133","126"
   1 "h","0","240","136","136","136","240","136","204"
   1 "g","0","120","132","132","132","132","132","120"
   1 "f","0","198","130","130","68","84","84","124"
   1 "e","0","0","0","96","144","16","16","17"
   1 "d","0","252","132","136","224","136","132","252"
   1 "a","0","254","146","146","16","16","16","56"
   1 "WORD = ";w$:
   1 "GRID WIDTH(max20) = ";wide
   1 "GRID HEIGHT(max20) = ";height